home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / net / drexxmail.lha / frills / rFinger < prev    next >
Text File  |  1994-09-30  |  1KB  |  44 lines
  1. /* rFinger v1.01 - by Rick Taylor, 8-12-94  */
  2.  
  3. options results
  4. call addlib("rexxreqtools.library",0,-30,0)
  5. lf = '0a'x
  6. cr = '0d'x
  7. fonttag=""
  8. whofin = ""
  9. address command
  10. /* Who are we gonna finger? */
  11.  
  12. msg = "Who do you want to get finger information for?  (user@host)?"
  13. whofin = rtgetstring("", msg,"rFinger v1.01 - By Rick Taylor", , fonttag)
  14. if whofin = "" then exit
  15. msg = "***Finger info for "||whofin||"***"||lf
  16. /* Launch the finger command */
  17.  
  18. 'dnet:finger >t:finger_out' whofin
  19.  
  20. /* Process finger input to fit in a requestor */
  21.  
  22. call open .fin,'t:finger_out',read
  23. beginline = readln(.fin)
  24. currpos = seek(.fin,0,'C')
  25. endfile = seek(.fin,0,'E')
  26. startpos = seek(.fin,currpos,'B')
  27.  
  28. lcount = 0
  29.  
  30. do while (currpos < endfile)&(lcount < 13)
  31.      restofmsg = readln(.fin)
  32.      msg = msg||strip(left(restofmsg,80))||lf
  33.      lcount = lcount +1
  34.      currpos = seek(.fin,0,'C')
  35.      end
  36. call close .fin
  37. 'delete t:finger_out QUIET'
  38. msg = msg||"***End of finger info for "||whofin||"***"
  39.  
  40. call rtezrequest msg,"_Ok","rFinger Information",fonttag
  41.  
  42. /* We're outta here */
  43. exit
  44.